home *** CD-ROM | disk | FTP | other *** search
/ B Soft 2 / B-Soft_2_19xx_Maik__Mike_de_Side_B.d64 / das geheimnis (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  195 lines
  1. 10 print"[147]"
  2. 20 poke53281,0:poke53280,0
  3. 30 print""
  4. 40 printtab(8)"undersoft presents :"
  5. 50 print""
  6. 60 print:print
  7. 70 printtab(4)"        [213][192][192][192][192][192][192][192][192][192][201]"
  8. 80 printtab(4)"        [161][175][175][175][175][175][175][175][175][175][161]"
  9. 90 printtab(4)"  [183][183][183][183][183][183][170][163][164][164]  [164][164][163] [165]"
  10. 100 printtab(4)"        [217] [213][201]  [213][201]  [165]"
  11. 110 printtab(4)"        [167] [202][203]  [202][203] [167] "
  12. 120 printtab(4)"         [165][213] [172][187]  [201][200]"
  13. 130 printtab(4)"         [165] [205]   [206] [200]"
  14. 140 printtab(4)"         [205]  [183][183][183]  [206][205]"
  15. 150 printtab(4)"          [205]  [163]  [206]  [205]"
  16. 160 printtab(4)"           [183][183][183][183][206] [206][183][205][205]"
  17. 170 printtab(4)"              [206] [206]   [180][180]"
  18. 180 printtab(4)"             [170]  [180]   [180][180]"
  19. 190 printtab(4)"             [170]  [180]   [180][180]"
  20. 200 printtab(4)"      [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  21. 210 printtab(4)"      [180]   das geheimnis   [170]"
  22. 220 printtab(4)"      [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  23. 230 get aa$:if aa$=""then230
  24. 240 if aa$=chr$(32)then 250
  25. 250 print"[147]"
  26. 260 poke53280,1:poke53281,1
  27. 270 print""
  28. 280 print"+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-"
  29. 290 print"[144]"
  30. 300 print"das geheimnis "
  31. 310 print:print"c 1990 by undersoft"
  32. 320 print:print"vetrieb: wondergames"
  33. 330 print:print"written by: macic out"
  34. 340 print:print:printtab(9)"greetings lesen (1)"
  35. 345 print:printtab(9)"anleitung lesen (2)"
  36. 350 print:printtab(9)"spielen (3)"
  37. 355 print:print
  38. 358 input"";a
  39. 360 if a=0 then 250
  40. 370 if a=1 then 410
  41. 380 if a=2 then 545
  42. 390 if a=3 then 790
  43. 400 if a>3 then 250
  44. 410 print"[147]"
  45. 415 print""
  46. 420 print"****************************************"
  47. 430 print:print" mega greetings :
  48. 440 [153]" usrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  49. 450 [153]:[153]" den laechelnden hunden"
  50. 460 [153]:[153]" the famous leo bohl"
  51. 464 [153]:[153]" candlemass"
  52. 470 [153]:[153]:[153]"greetings :"
  53. 480 [153]:[153]"rob...mig...mac...total aus...pit...and"
  54. 490 [153]:[153]"all good mosher!!!!!!!"
  55. 500 [161] aa$:[139] aa$[178]""[167] 500
  56. 510 [139] aa$[178][199](32)[167] 250
  57. 520 [153]"load"
  58. 530 [153]""
  59. 540 [153]"-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*"
  60. 545 [153]"stop"
  61. 550 [153]:[153]" anleitung:"
  62. 560 [153]" usrusrusrusrusrusrusrusrusrusr"
  63. 570 [153]:[153]
  64. 580 [153]"mit diesem programm wird schonungslos"
  65. 590 [153]:[153]"offenbahrt, was jeder insgeheim laengst"
  66. 600 [153]:[153]"vermutete. das privatleben wird durch-"
  67. 610 [153]:[153]"leuchtet. verheimlichung gehoehrt der "
  68. 620 [153]:[153]"vergangenheit an. wir liefern den beweis"
  69. 630 [153]"ueber jeden menschen und sein inneres."
  70. 640 [153]:[153]"empfohlen ist dieses spiel ab 16 jahre."
  71. 650 [153]:[153]"das liegt natuerlich an der wahrheit die"
  72. 660 [153]"nicht jeder gleich verkraften kann."
  73. 670 [153]:[153]"<space>"
  74. 680 [161] aa$:[139] aa$[178]""[167]680
  75. 690 [139] aa$[178][199](32)[167] 700
  76. 700 [153]"load"
  77. 710 [153]"..spielen auf eigene gefahr.."
  78. 720 [153]:[153]"ist unumgaenglich, da die schadenersatz-"
  79. 730 [153]"forderungen unbezahlbar waeren."
  80. 740 [153]:[153]"dieses programm <darf> kopiert werden."
  81. 750 [153]:[153]"macic out (in aller schnelle).........."
  82. 760 [153]:[153]:[153][163]5)"...und jetzt viel spass..."
  83. 770 [161] aa$:[139] aa$[178]""[167]770
  84. 780 [139] aa$[178][199](32)[167] 250
  85. 790 [153]"load"
  86. 800 [151]53280,2:[151]53281,2
  87. 810 [153]""
  88. 820 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  89. 830 [153]"sys"
  90. 840 [153]"bitte geben sie ihren ehrenwerten namen"
  91. 850 [153]:[153]"ein (richtig schreiben) !
  92. 860 print:print
  93. 870 input"";n$
  94. 880 print:print"o.k. "n$" dann lueften wir ihr"
  95. 890 print"[144]"
  96. 900 print"g e h e i m n i s ............"
  97. 910 print"[158]"
  98. 920 print"dazu druecken sie bitte <space> !"
  99. 921 get aa$:if aa$=""then921
  100. 922 if aa$=chr$(32)then 930
  101. 930 z=int(45*rnd(1))+1
  102. 940 if z=1 then goto 1340
  103. 950 if z=2 then goto 1350
  104. 960 if z=3 then goto 1360
  105. 970 if z=4 then goto 1370
  106. 980 if z=5 then goto 1380
  107. 990 if z=6 then goto 1390
  108. 1000 if z=7 then goto 1410
  109. 1010 if z=8 then goto 1420
  110. 1020 if z=9 then goto 1430
  111. 1030 if z=10 then goto 1440
  112. 1040 if z=11 then goto 1450
  113. 1050 if z=12 then goto 1460
  114. 1060 if z=13 then goto 1470
  115. 1070 if z=14 then goto 1480
  116. 1080 if z=15 then goto 1490
  117. 1090 if z=16 then goto 1500
  118. 1100 if z=17 then goto 1510
  119. 1110 if z=18 then goto 1520
  120. 1120 if z=19 then goto 1530
  121. 1130 if z=20 then goto 1540
  122. 1140 if z=21 then goto 1550
  123. 1150 if z=22 then goto 1560
  124. 1160 if z=23 then goto 1570
  125. 1170 if z=24 then goto 1580
  126. 1180 if z=25 then goto 1590
  127. 1190 if z=26 then goto 1600
  128. 1200 if z=27 then goto 1610
  129. 1210 if z=28 then goto 1620
  130. 1220 if z=29 then goto 1630
  131. 1230 if z=30 then goto 1640
  132. 1240 if z=31 then goto 1650
  133. 1250 if z=32 then goto 1660
  134. 1260 if z=33 then goto 1670
  135. 1270 if z=34 then goto 1680
  136. 1280 if z=35 then goto 1690
  137. 1290 if z=36 then goto 1700
  138. 1300 if z=37 then goto 1710
  139. 1310 if z=38 then goto 1720
  140. 1320 if z=39 then goto 1730
  141. 1330 if z=40 then goto 1740
  142. 1331 if z=41 then goto 1750
  143. 1332 if z=42 then goto 1760
  144. 1333 if z=43 then goto 1770
  145. 1334 if z=44 then goto 1780
  146. 1335 if z=45 then goto 1790
  147. 1340 print:printn$" ist voellig normal.":goto 2000
  148. 1350 print:printn$" waer gern ein popel.":goto 2000
  149. 1360 print:print"hunde liebt "n$" besonders.":goto 2000
  150. 1370 print:printn$" ist ja so schoen.":goto 2000
  151. 1380 print:printn$" ist ein sexy-boy.":goto 2000
  152. 1390 print:print"am liebsten macht "n$" es mit dem "
  153. 1400 print"vibrator.":goto 2000
  154. 1410 print:printn$" ist perfekt.":goto 2000
  155. 1420 print:printn$" ist normal.":goto 2000
  156. 1430 print:printn$" legt gerne an scheisse.":goto 2000
  157. 1440 print:printn$" macht 6*selbstbefriedigung am tag.":goto 2000
  158. 1450 print:printn$" ist pervers.":goto 2000
  159. 1460 print:printn$" ist ein sadist.":goto 2000
  160. 1470 print:printn$" ist sehr klug.":goto2000
  161. 1480 print:printn$" waer gerne eine frau.":goto 2000
  162. 1490 print:printn$" ist impotent.":goto 2000
  163. 1500 print:printn$" ist dumm.":goto 2000
  164. 1510 print:printn$" peitscht sich aus.":goto 2000
  165. 1520 print:printn$" ist total der poser.":goto 2000
  166. 1530 print:printn$" ist ein freund des anal-ficks.":goto 2000
  167. 1540 print:printn$" isst sperma (frisch).":goto 2000
  168. 1550 print:printn$" ist sehr sehr notgeil.":goto 2000
  169. 1560 print:print" anpissen mag "n$" ganz besonders.":goto 2000
  170. 1570 print:printn$" wuerde gern mit daeter schlafen.":goto  2000
  171. 1580 print:printn$" ist ein toller musiker.":goto 2000
  172. 1590 print:printn$" ist sehr fleissig.":goto 2000
  173. 1600 print:printn$" ist ein arschloch.":goto 2000
  174. 1610 print:printn$" ist ein uebermensch.":goto 2000
  175. 1620 print:printn$" macht es mit tieren.":goto 2000
  176. 1630 print:print"ueber "n$" giebt es keine daten.":goto 2000
  177. 1640 print:printn$" trinkt gerne aus der toilette.":goto 2000
  178. 1650 print:printn$" ist sehr fleissig.":goto 2000
  179. 1660 print:printn$" waere gerne ein schliesmuskel.":goto 2000
  180. 1670 print:printn$" ist ein machoist.":goto 2000
  181. 1680 print:printn$" ist ein fall fuer's lkh.":goto 2000
  182. 1690 print:printn$" ist ein potenzmonster.":goto 2000
  183. 1700 print:printn$" ist schwul.":goto 2000
  184. 1710 print:printn$" leckt gerne fotzen.":goto 2000
  185. 1720 print:printn$" ist kotz haesslich.":goto 2000
  186. 1730 print:printn$" liest pornos (regelmaessig).":goto 2000
  187. 1740 print:printn$" ist super.":goto 2000
  188. 1750 print:printn$" zeigt sich gerne nackt":goto2000
  189. 1760 print:printn$" leckt gerne schweiss.":goto 2000
  190. 1770 print:printn$" blaesst horst zilm jede woche ein.":goto 2000
  191. 1780 print:printn$" schreibt perverse geschichten.":goto 2000
  192. 1790 print:print"ueber "n$" liegen keine daten vor.":goto 2000
  193. 2000 get aa$:if aa$=""then2000
  194. 2010 if aa$=chr$(32)then 790
  195.